home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Startmenu Items 3.xpl < prev    next >
Text File  |  2001-02-21  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Visible Items in Start->Settings"
  6. "VERSION"="1.33"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Control Panel and Printers"
  9. "TEXT 2"="Show "Folder options" item"
  10. "TEXT 3"="Show "Taskbar options" item"
  11. "TEXT 4"="Show "ActiveDesktop options" item"
  12. "TEXT 5"="Show "Windows Update" item
  13. "DESCRIPTION 1"="This plug-in allows you to change which items are displayed in Start -> Settings."
  14. "DESCRIPTION 2"="NOTE #1: Disabling "Control Panel and Printers" will also disable WINDOWS+E to start the Explorer."
  15. "DESCRIPTION 3"="NOTE #2: Disabling "Folder options" will also disable "View" -> "Folder Options" inside the Explorer."
  16. "DESCRIPTION 4"="NOTE #3: Disabling "Windows Update" will also disable Windows Update if you try to run it from the command line."
  17. "DESCRIPTION 5"="NOTE #4: Disabling all 5 options hides "Settings" menu inside Start Menu."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22. "COMMENT 2"="Thanks to Ray Li (rayli@email.com) for spotting the WINDOWS+E effect."
  23.  
  24.  
  25. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  26. sV1="NoSetFolders" 'DW
  27. sV2="NoFolderOptions" 'DW
  28. sV3="NoSetTaskbar" 'DW
  29. sV4="NoSetActiveDesktop" 'DW
  30. sV5="NoWindowsUpdate"
  31.  
  32. SUB Plugin_Initialize 
  33.  'i=RegReadValue(sp&sV1)  
  34.  'if IsEmpty(i) or i=0 then SetUIElement 1,true 
  35.  
  36.  Call myReadItem(sV1,1)
  37.  Call myReadItem(sV2,2)
  38.  Call myReadItem(sV3,3)
  39.  Call myReadItem(sV4,4)
  40.  Call myReadItem(sV5,5)
  41. END SUB
  42.  
  43. 'Called when the Plugin should validate the Data the user has entered
  44. SUB Plugin_CheckData(ElementIndex)
  45. END SUB
  46.  
  47. 'Called when the Plugin should apply the changes
  48. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  49.  Call myWriteItem(sV1,1)
  50.  Call myWriteItem(sV2,2)
  51.  Call myWriteItem(sV3,3)
  52.  Call myWriteItem(sV4,4)
  53.  Call myWriteItem(sV5,5)
  54.  
  55.  Call IndicateSettingChange()
  56. END SUB
  57.  
  58. 'Called when the Plugin is about to be removed from memory
  59. SUB Plugin_Terminate
  60. END SUB
  61.  
  62.  
  63. Sub myReadItem(itmReg,ui)
  64.  i=RegReadValue(sp&itmReg)  
  65.  if IsEmpty(i) or i=0 then 
  66.     Call SetUIElement(ui,true)
  67.  end if
  68. End Sub
  69.  
  70. Sub myWriteItem(itmReg,ui)
  71.  if GetUIElement(ui)=true then
  72.     s=RegReadValue(sp&itmReg)
  73.     if IsEmpty(s)=false then Call RegDeleteValue(sp&itmReg)
  74.  else
  75.     Call RegWriteValue(sp&itmReg,1,2)
  76.  end if
  77. End sub
  78.  
  79.  
  80.